www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminpicsp\D_admin_acticle.asp
<%
'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************
%>
<LINK href="../css.css" type=text/css rel=stylesheet>
<%
dir_set="../../"
%>
<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->
<!--#include file=../../inc/ajaxLIB.asp-->
<!--#include file=../inc/checkadmin2.asp-->
<!--#include file=../../inc/functionFiless.asp-->
<!--#include file=inc_lanmu_bl.asp-->
<%
AJAXshowLoader()
%>
<style type="text/css">
<!--
.STYLE4 {
color: #FFFFFF;
font-weight: bold;
}
-->
</style>
<%
biao="[ND_pic_or_sp_class]"
biao2="[ND_pic_or_sp]"
sys_content_type=trim(request("sys_content_type"))
set rs44g=server.CreateObject("adodb.recordset")
rs44g.open "select * from ND_channel where sys_content_type_name='"&sys_content_type&"' and lanmu_type='"&lanmu_taba&"'",conn,1,1
if find_dataw(lanmu_taba,rs44g("id"),2)<>"1" and find_dataw(lanmu_taba,rs44g("id"),3)<>"1" and qx_if_max=0 then
response.redirect "../D_suodinguser.asp"
end if
function next_cen(pid_list,deepth)
set rs=server.CreateObject("adodb.recordset")
pppcid="-123"
if pid_list<>"" then
ppplista=split(pid_list,",")
ppplistaubd=ubound(ppplista)-1
pppcid=ppplista(ppplistaubd)
end if
rs.open "select * from "&biao&" where ((deepth="&deepth&" and ((parent_id_list like '%"&pid_list&"%') or (parent_id='"&pppcid&"'))) and sys_content_type='"&sys_content_type&"') order by orders asc",conn,1,1
if pid_list<>"" then
lista=split(pid_list,",")
numa=ubound(lista)
p_id=cstr(lista(numa))
else
p_id=0
end if
do while not rs.eof
pid_list222=rs("parent_id_list")&","&rs("id")&","
deepth222=rs("deepth")+1
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from "&biao&" where ((deepth="&deepth222&" and ((parent_id_list like '%"&pid_list222&"%') or (parent_id='"&rs("id")&"'))) and sys_content_type='"&sys_content_type&"') order by orders asc",conn,1,1
if rs2.eof then
if pid_list<>"" then
lista=split(pid_list,",")
numa=ubound(lista)
p_id=cstr(lista(numa-1))
else
p_id=0
end if
if p_id=0 then p_id=-1
'response.write "<level1 id="""&rs("id")&""" parentTypeID="""&p_id&""" caption="""&rs("ClassName")&""" PRI=""1"" explain="""&rs("id")&"""/>"&vbcrlf
%>
<option value="<%=rs("id")%>" <%if cstr(rs("id"))=cstr(request("classid")) then response.write "selected"%>>
<%for iiiii1=1 to cint(deepth222)
if iiiii1=cint(deepth222) then
%>
├<%
else
%>
│<%
end if
next
%><%=rs("classname")%>
</option>
<%
if not rs.eof then rs.movenext
if rs.eof or rs.bof then
'response.write "</level0>"
'call next_cen_class(pid_list222,deepth222)
exit function
else
need_benji_next=1
end if
else
'response.write "<level0 id="""&rs("id")&""" parentTypeID="""
'if deepth=0 then response.write "-1" else response.write p_id
'response.write """ caption="""&rs("ClassName")&""" PRI=""2"" explain="""&rs("id")&""" >"&vbcrlf
%>
<option value="<%=rs("id")%>" <%if cstr(rs("id"))=cstr(request("classid")) then response.write "selected"%>>
<%for iiiii1=1 to cint(deepth222)
if iiiii1=cint(deepth222) then
%>
├<%
else
%>
│<%
end if
next
%><%=rs("classname")%>
</option>
<%
call next_cen(pid_list222,deepth222)
if not rs.eof then rs.movenext
need_benji_next=1
if rs.eof or rs.bof then
'if deepth<>0 then response.write "</level0>"
'call next_cen_class(pid_list222,deepth222)
exit function
end if
end if
if need_benji_next=0 then
exit do
end if
need_benji_next=0
loop
end function
%>
<br />
<div id="l_lists" style="filter:blendTrans(duration=1); width:774px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px; width:730px">
<form action="D_admin_acticle.asp" method="post" name="aa" id="aa" target="_self">
<table width="724" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="425" height="23">搜索：
<input name="keyword" />
条件：
<select name="qrr">
<option value="1" selected="selected">标题</option>
<option value="2">录 入 者</option>
<option value="3">不限条件</option>
</select>
<input type="hidden" value="<%=sys_content_type%>" name="sys_content_type" />
<input type="submit" value="搜索" />
</td>
<td width="274">限定分类：
<select name="classid" onchange="document.all.aa.submit();">
<option value="all">---所有---</option>
<%
set rseee=server.CreateObject("adodb.recordset")
rseee.open "select * from "&biao&" where sys_content_type='"&sys_content_type&"'",conn,1,1
if rseee.eof then
%>
<script language="javascript">
alert("没有分类，请先添加分类");
history.go(-1);
</script>
<%
end if
call next_cen("",0)
%>
</select>
</td>
</tr>
<tr>
<td height="30" colspan="2" align="center"><table width="641" height="18" border="1" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="254" align="center" bgcolor="#EDF8FE"><a href="D_admin_acticle.asp?iszhuanti=1&sys_content_type=<%=sys_content_type%>">选择专题</a></td>
<td width="387" align="left" bgcolor="#EDF8FE"><a href="D_admin_acticle.asp?isshenhed=1&sys_content_type=<%=sys_content_type%>">选择待审</td>
</tr>
</table></td>
</tr>
</table>
</form>
</div>
<br />
<div id="l_list" style="filter:blendTrans(duration=1); width:774px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px; height: 121px;width:730px">
<%
if sys_content_type="" then
%>
<script language="javascript">
alert("url参数sys_content_type不能为空");
</script>
<%
response.end
end if
%>
<script language="javascript">
function delact(id){
if (confirm("确认删除?")==1){
self.location="D_del_acticle.asp?id="+id+"&sys_content_type=<%=sys_content_type%>";
}
}
function CheckAll(){
var dd=parseFloat(document.getElementById("len1").value);
for(var i=1;i<=dd;i++)
{
var dd1=document.getElementById("chec"+i);
dd1.checked=true;
}
}
</script>
<br />
<form action="D_piliang.asp" method="post" name="ww" id="ww">
<table width="100%" border="1" cellspacing="0" cellpadding="0">
<tr>
<td width="4%" height="27" align="center" class="adminth"><span class="STYLE4">id</span></td>
<td width="4%" height="27" align="center" class="adminth"><span class="STYLE4">选择</span></td>
<td width="48%" align="center" class="adminth"><span class="STYLE4">标题</span></td>
<td width="13%" align="center" class="adminth"><span class="STYLE4">操作</span></td>
<td width="6%" align="center" class="adminth"><span class="STYLE4">审核</span></td>
<td width="12%" align="center" class="adminth"><span class="STYLE4">整理日期</span></td>
<td width="13%" align="center" class="adminth"><span class="STYLE4">录 入 者</span></td>
</tr>
<%
CurrentPage=replacebadchar(request("page"))
if CurrentPage="" then
CurrentPage=1
else if not IsNumeric(CurrentPage) then
CurrentPage=1
else if int(CurrentPage)<=0 then
CurrentPage=1
else
CurrentPage=replaceBadchar(request("page"))
end if
end if
end if
maxperpage=15
aryxx =split(Request.ServerVariables("SCRIPT_NAME"),"/")
fileNamexx = aryxx(ubound(aryxx))
strFileName=fileNamexx&"?classid="&request("classid")&"&isshenhed="&request("isshenhed")&"&iszhuanti="&request("iszhuanti")&"&keyword="&trim(request("keyword"))&"&sys_content_type="&sys_content_type&"&qrr="&request("qrr")
sql2=""
if request("classid")<>"all" and request("classid")<>"" then
set Rs33=server.CreateObject("adodb.recordset")
sql="select cstr(parent_id_list) from "&biao&" where id="&request("classid")
Rs33.open sql,conn,1,1
sspa=rs33(0)&","&request("classid")&","
sql2=" and (classid='"&request("classid")&"' or classid in (select cstr(id) from "&biao&" where parent_id_list like '%"&sspa&"%' ) or classid in (select cstr(id) from "&biao&" where parent_id='"&request("classid")&"') ) "
end if
if request("keyword")<>"" then
if request("qrr")="1" then
sql2=" and title like '%"&trim(request("keyword"))&"%' "
else
if request("qrr")="2" then
sql2=" and username like '%"&trim(request("keyword"))&"%' "
else
sql2=" and username like '%"&trim(request("keyword"))&"%' or title like '%"&trim(request("keyword"))&"%' "
end if
end if
end if
if request("isshenhed")<>"" then
sql2=" and is_shenhe='0' "
end if
if request("iszhuanti")<>"" then
sql2=" and SpecialID<>'no' "
end if
set Rs=server.CreateObject("adodb.recordset")
sql="select * from "&biao2&" where sys_content_type='"&sys_content_type&"' "&sql2&" order by id desc"
Rs.open sql,conn,1,1
if not Rs.eof then
Rs.pagesize=MaxPerpage
totalnumber=Rs.recordcount
if totalnumber mod maxperpage=0 then
MaxPage= totalnumber \ MaxPerpage
else
MaxPage= totalnumber \ MaxPerpage+1
end if
if int(CurrentPage)>int(MaxPage) then
CurrentPage=MaxPage
else
CurrentPage=CurrentPage
end if
Rs.absolutepage=CurrentPage
for ni=1 to MaxPerpage
if Rs.eof then exit for
%>
<tr bgcolor="#EDF8FE">
<td width="4%" height="27" align="center"><%=rs("id")%></td>
<td width="4%" height="27" align="center">
<input type="checkbox" name="chec<%=ni%>" id="chec<%=ni%>" value="1" />
<input type="hidden" name="chec_id<%=ni%>" id="chec_id<%=ni%>" value="<%=rs("id")%>" />
</td>
<td width="48%" align="center"><%=left(rs("title"),34)%></td>
<td width="13%" align="center">
<a href="D_edit_acticle.asp?id=<%=rs("id")%>&sys_content_type=<%=sys_content_type%>">编辑</a>
<a href=# onclick="delact('<%=rs("id")%>');">删除</a>
</td>
<td width="6%" align="center">
<%if rs("is_shenhe")="1" then%>
√
<%else%>
X
<%end if%>
</td>
<td width="12%" align="center"><%=rs("WriteTime")%></td>
<td width="13%" align="center"><%=rs("username")%></td>
</tr>
<%
Rs.movenext
next
else
%>
<tr><td colspan="7" class=maintext align="center"><font color="#FF0000"><strong>没有内容……</strong></font></td></tr>
<%end if
Rs.close
set Rs=nothing
%>
<tr bgcolor="#EDF8FE">
<td colspan="7">
<input type="hidden" id="len1" name="len1" value="<%=ni-1%>" />
<input type="hidden" id="sys_content_type" name="sys_content_type" value="<%=sys_content_type%>" />
<input type="hidden" id="pageb" name="pageb" value="<%=request("page")%>" />
<input type="hidden" id="classidb" name="classidb" value="<%=request("classid")%>" />
<input class="Button" type="button" name="chkall" value="全选" onClick="CheckAll()">
管理选项：
<select name="dow">
<option value="0">请选择操作选项</option>
<option value="批量删除">批量删除</option>
<option value="批量置顶">批量置顶</option>
<option value="取消置顶">取消置顶</option>
<option value="批量推荐">批量推荐</option>
<option value="取消推荐">取消推荐</option>
<option value="批量审核">批量审核</option>
<option value="取消审核">取消审核</option>
<option value="更新时间">更新时间</option>
</select>
<input class="Button" type="submit" name="Submit2" value="执行操作" onclick="return confirm('您确定执行该操作吗?')">
</td>
</tr>
<tr>
<td colspan="7" align="center" height="27" bgcolor="#FFFFFF"><%call showpage(strFileName,totalnumber,MaxPerPage,true,true,"个",CurrentPage)%></td>
</tr>
</table>
</form>
</div>
<script language=javascript>
AJAXfade(1,'l_list');
AJAXfade(1,'l_lists');
</script>
<%
AJAXcloseLoader()
%>